10 POKE53281,0:POKE53280,0:PRINTCHR$(142)"[147]" 20 GOSUB60000 30 PRINT"[144]LOAD"CHR$(34)"SPEEDY DELIVERY"CHR$(34)",8" 40 PRINT"RUN" 50 POKE631,13:POKE632,13:POKE198,2:END 10000 OPEN15,8,15,"S0:SPEEDY BOOT":CLOSE15:SAVE"SPEEDY BOOT",8:END 60000 B9$="  " 60010 POKE214,14:PRINT:PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]" 60020 FORI=0TO7:PRINTB9$:NEXT:PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]" 60030 B9$(0)="SPEEDY DELIVERY" 60040 B9$(1)="BY LEARNING TECHNOLOGIES" 60050 B9$(2)="(C) 1990 BY SOFTDISK, INC." 60060 B9$(3)="PUBLISHED ON LOADSTAR #76" 60070 B9$(4)="SUBSCRIPTIONS 1-800-831-2694" 60080 B9$(5)="ALL RIGHTS RESERVED" 60090 POKE214,16:PRINT:FORI=0TO5:PRINTTAB(20-(LEN(B9$(I))/2))""B9$(I):NEXT 60099 RETURN